'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Textbox, X As Long, Y As Long, Flags As Long)

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
	Static Source As TEXTBOX
	Set Source = Bind(Objectname_)
	On Event Click From Source Call Click
End Sub

'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Textbox, X As Long, Y As Long, Flags As Long)
	Dim rval As Integer   'Return value	
	
	On Error 11026 Goto NoWebster
	
	strURL = "http://" & source.URL.text
	If (Source.fldFirstDate.Text = "") Then
		Source.fldFirstDate.ReadOnly = False   'So we can enter data.
		Source.fldFirstDate.Text = Str(Today())
		Source.fldFirstDate.ReadOnly = True   'Set it back.
	End If
	Source.fldLastDate.ReadOnly = False
	Source.fldLastDate.Text = Str(Today())
	Source.fldLastDate.ReadOnly = True
	
	Set CurrentApplication.ActiveView = CurrentDocument.Webster~ Browser
	rval = CurrentView.Body.oleWebster.LoadPage(strURL, 0)
	Goto EndLoadPage
	
NoWebster:
	Print Err
	Messagebox "You don't have the Webster browser installed.  Go to Main Menu-Setup to install the Webster browser."
	Resume EndLoadPage
	
EndLoadPage:
End Sub